<%
''自定义数组
class cls_array
''
public obj
''
private sub class_initialize()
	set obj = Server.CreateObject("Scr"&"iptin"&"g.Dic"&"tion"&"ary")
end sub

private sub class_terminate()
	set obj = nothing
end sub

public property get length
	length = obj.Count
end property

public sub add(byval key, byval value)
	call obj.Add(key, value)
end sub

public function key(byval i)
	dim keys : keys = obj.Keys
	key = keys(i)
end function

public function value(byval i)
  dim values : values = obj.Items
	value = values(i)
end function

public sub remove(byval key)
	obj.remove(key)
end sub

public sub removeall()
	obj.removeall
end sub

''
end class
%>